DOCUMENTATION FOR EF.DVIny HOS 2.0 EFSON DEVICE DRIVER (qequre rs Dabbens bekel - 


This device driver contains the following features: apis ee Mth 
L> Allows control of erinter ortions using eisht bit codes, 3 a 
=} Ortion table is easily modified or exranded. re aren. 
3) Full ‘“SET’ oftions a@re surreorted, Mawr 


4) Extremely short mechine code €4 sectors), 
COMPUTER HARIWARE CONFIGURATION: 


Heatn/Zenith H/Z 89 comeuter with WertaCome HS9-FPI or Heath WHES-FAL is 
reauired to use tnis driver. 


PRINTER HARTWARE CONFIGURATION? 


Standard EPSON with rarallel interface is used. DIF Switches 1 and 2 ere 
Surreogsed Lo he in Factore-set Condition. The driver is tested on a MX-1600 
type TIT. 
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NOTE: It is recommended thst interface canhles be kert as snort &85 rFossible. 
2-mecter caeble Seve mo rroblems soa fer. 


PLUGS USED? EFSON? AMPHENOL &S7-30360, ~ 
HOS-PRDL? MOLEX crime terminal nousins #€ 2695-160/6471-190 
crime terminal #€ S7S9TL/480eT 


QEVICE DRIVER SOURCE: 


This driver is contained in tne filet ErF.ASM. 
It can be essembled usimns tne HUG 25M. 


tT hore this DVO will be useful to vou. Any comments or susgsestions 
resarding this driver are wellcome. (I have already been thinking 
shout @ HiS-simulaetion using the bit-imaese ortiorn), 


WerteCome Unlimited 

alias Bram Bouwems 
HeerliJdkneidlean 61 
4004 VZ WEERT 
THE NETHERLANDS 


PoS. For the needec hardware Cat extremely low ericesd:y write me. 
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DEF .POR 
x 


*% 
%* 
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DV DFLV 
DVD.ENT 
% 


% 
% 
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oR 


START 
DDDVD 


DDOP W 


DDWRI 


DDW2 


% 


X TEXT HOSEQU 
XEEXT ESV AL 
XTEXT ECDEF 
ALEAL SETCAL 


EQU 193EH 

EQU 195EH 

EQU 10 

EQU NL+80H 

EQU 12 

BQU 15 

POORTDEP TN ITIE 

EQU 340Q 


CODE HEADER 


EQU 307Q 

EQU COOH 

CODE PIG 

EQU *#4DVD.ENT6 

DB DVDFLV Flag to HDOS as DVD 

DB O4H Capable of Write Only 
DB O1H Mounted Unit Mask 

DB O1H Maximum Number of Units 
DB O4H Ssubcapability flags units 0 ~ 7 
DS 1 Units 1» 7 Flags 

DB 0 geen SET ! 

DS $a * 
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GEDVD ENTRY POINT 
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Ruimte moet absoluut verspild worden ! 
Entry point moet deelbaar zijn door 100H. 


ENTER PROCESSOR 


ENTRY: (A) = process code 
(BG) = byte count 
(DE) = memory address 
BXIT: 'C' el@ear if of 
‘Cc’ ge6 if error 
(A) = error code 
USES: ALL 
EQU * 
GP I 11 max. code ! 
JNC DDILR illegal process code 
CALL $TBRA enter processor 
DB DDILR=* Read 
DB DDWRI~* Write 
DB DDDDA~* Read Regardless 
DB DDILR+* Open for Read 
DB DDOPW* Open for Write 
DB DDDDA~* Open for Update 
DB DDCLO~* Close 
DB DDNOT+* Abort 
DB DDNOTH+* Mount Device 
DB DDNOT~* Load Device Driver 


DDNOT +» Nothing 


XRA A 
RET 


DDILR ~ Illegal Request 


MVI A,EC.ILR 
STC 
RET 


DDDDA ~ Issue Device Driver Abort To Request 


MVI A,EC.DDA 
STC 
RET 


DDOPW — Open (write) 


LDA TDD.INI 

ANA A 

RNZ 

CALL 182558 initialize PPI 

CALL CENTRON initialize printer 

MVI A, 

STA TDD.INI 

MVI K, i 0.{ | eae Be re 
STA TDD.TAB Ax bal tells. wry ne Me 

RET 


DDCLO »- Close 


CALL CENTRON strobe altijd hoog zetten 
XRA A 
RET 


DDWRI »~ Write Data To Printer 


LDA S.CAADR+1 check for interupt 
ANA A 

RNZ abort, claim all done 
MOV A,B 

ORA C check byte count left 
RZ all done 

LDAX D 

CALL TCH druk af 

INX D ine pointer 

DCX B | dec count 

JMP DDWRI 
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SUBROUTINES 
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% 
kX 


TEST 


BUSY 


| OUTKAR 


TCH - Type Character 


ENTRY: (A) = eharacter 


ee i a none 
USES: A,F 
EQU * 
PUSH P SW 
IN DEF .POR+2 3 |: 
ANI QOQO000010B — - leoavh bd -2 
JZ BUSY 
CALL STYPTX 
DB NL,'Jos, je printer staat off-line' 
DB NL,*of het papier. is op !',ENL 
IN DEF .POR+2 
ANI OO0000010B 
JINZ TEST 
CALL STYPT 
DB NL,'Bedankt! Nu kan ik eindelijk aan het werk !',ENL 
IN DEF .POR+2 >, : 
ANI 00000001B c fowl - Lib 4 
JNZ BUSY 
ror PSW get character 
CPL 128 is het een LF ? Dan vervangen door CR ! 
JE CRLF 
CPI 011Q 
JE TAB is het een TAB ? 
OUT DEF «POR 
CPI Be is het een afdrukbaar teken ? 


JC TIJdD ve be TAB=-teller bijwerken 


a 
en 
v* 


ae ra / dx Labelle und AF 


TIJD1 
—pPpTIJD MVI A,24- tijd verliezen ! 
| WACHT1 DCR A 
JNZ WACHT1 
4 MVI A,0 Strobe genereren 
OUT DEF. POR+2 
MVI A/F Yur 
WACHT2 DCR a in’ 
JNZ WACH T2 
XK MVI A,10000000B 
OUT DEF .POR+2 
MVI A,32 
WACHT3 DCR A 
JNZ WACHT3 
RET . 
* VERWERKING VAN DE CR + LF : ty 
‘ 
CRLF MV I A,8 TAB-teller klaar maken ! cg 
STA TDD.TAB \p&. \% 
MVI A,15Q LF vervangen door CR ! Ae ) 
JMP OUTKAR . 
% 
* [Ake 
% Mean oar ia ae AL 
. oe NG VAN DE TAB = f ah TAB unt dl 
8 i y 
TAB MVI Behe 4 wwe ha tcl 
CALL OUTKAR a . 
LDA TDD. TAB. 
CPI <a alle beschikbare posities doorlopen ? ey 
INE | p11 
RET . LDA 7 
“ Tab c p 
KX INET ~ initaliseer de 825 CP 
% 
18255A MVI A,10000011B ] fe ne 4 
OUT DEF .POR+3 | vd Br 
RET ry KA 
v co SUL aa 
gue TPP 
wae CENTRON- zet de strobelijn van de centronics»printer hoog 
# | ve 
% > A) LQAnL bunts v NBS 
CENTRON MVI A, 10000000B - 
OUT DEF .POR+2 J - ak. tore 
RET a al . <3 os Cc - prox, 
= ie SyyoKie | 
( CPSON NV mares AG. " 
# : V1 A P Axe 
JMP DDWRI \ CRW WG 
xe TDD.UNT + tabel van konstanten LAT A, ~~? ~~ lV 
% - : : His 4 
dl | 
TDD.UNT DB 0 unit number 
TDD.INI DB 0 unit inited 
IDD.TAB DB 0 
% 
x 
z 
DW es Oy relokatie-adres 
DS 64 patch area 
END 
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